-- background: 2080 from stack: in
-- bmap block id: 4327
-- flags: 0000
-- background id: 0
-- name: Main
----- HyperTalk script -----
on Opencard
  set the scroll of background field "text1" to 0
  set the scroll of background field "text2" to 0
end openCard

on lockit
  set the locktext of background field "text1" to "true"
  set the locktext of background field "text2" to "true"
end lockit

on unlockit
  set the locktext of background field "text1" to "False"
  set the locktext of background field "text2" to "False"
end unlockit



-- part 2 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=121 top=6 right=226 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 14
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Text2
----- HyperTalk script -----
on mouseUp
  global FrontField
  put "FS" into FrontField

  set lockscreen to true
  set the scroll of background field "text1" to 0
  set the scroll of background field "text2" to 0
  hide background field "text2"
  show background field "text1"
  unlock screen with visual effect dissolve
end mouseUp



-- part 1 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=121 top=6 right=226 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 14
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Text1
----- HyperTalk script -----
on mouseUp
  global FrontField
  put "OV" into FrontField

  set lockscreen to true

  set the scroll of background field "text1" to 0
  set the scroll of background field "text2" to 0
  hide background field "text1"
  show background field "text2"
  unlock screen with visual effect dissolve

end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=344 top=242 right=290 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 1004 / 1004
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Fact Sheet
----- HyperTalk script -----
on mouseUp
  global FrontField
  put "FS" into FrontField

  set lockscreen to true
  set the scroll of background field "text1" to 0
  set the scroll of background field "text2" to 0
  hide background field "text2"
  show background field "text1"
  unlock screen with visual effect dissolve
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=292 top=242 right=290 bottom=345
-- title width / last selected line: 0
-- icon id / first selected line: 1004 / 1004
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Overview
----- HyperTalk script -----
on mouseUp
  global FrontField
  put "OV" into FrontField

  set lockscreen to true

  set the scroll of background field "text1" to 0
  set the scroll of background field "text2" to 0
  hide background field "text1"
  show background field "text2"
  unlock screen with visual effect dissolve

end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=380 top=300 right=329 bottom=425
-- title width / last selected line: 0
-- icon id / first selected line: 2442 / 2442
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  push card
  visual effect scroll left
  go to card "Help"
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=336 top=300 right=328 bottom=381
-- title width / last selected line: 0
-- icon id / first selected line: 5814 / 5814
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global FrontField
  put "OV" into FrontField

  set lockscreen to true
  hide background field "Text1"
  show background field "Text2"
  go to next card
  unlock screen with visual effect scroll left
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=292 top=300 right=329 bottom=337
-- title width / last selected line: 0
-- icon id / first selected line: 15010 / 15010
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global FrontField
  put "OV" into FrontField

  set lockscreen to true
  hide background field "Text1"
  show background field "Text2"
  go prev card
  unlock screen with visual effect scroll right
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=467 top=299 right=328 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 9632 / 9632
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  answer "Quit to Home or Finder?" with "Cancel" or "Home" or "Finder"
  if it = "Cancel"
  then
  exit mouseUp
end if

if it = "Home"
then
visual effect iris open
go home
else
  show menubar
  doMenu "Quit HyperCard"
end if
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=424 top=302 right=327 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 10668 / 10668
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go to card shelf1
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=454 top=242 right=290 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print
----- HyperTalk script -----
on mouseUp
  global FrontField

  answer "Printer Type:" with "Cancel" or "Dot-Matrix" or "Laser"

  if it = "Cancel"
  then
  exit MouseUp
else
  if it = "Laser"
  then
  put "Helvetica" into FontHolder
else
  put "Geneva" into FontHolder
end if
end if

if FrontField = "OV"
then
put "Product Overview" into Header
put "Product Overview" into VarHolder
PrintDoc Header,background field "Text2", VarHolder, FontHolder, 12
else
  put "Fact Sheet" into Header
  put "Fact Sheet" into VarHolder
  PrintDoc Header,background field "Text1", VarHolder, FontHolder, 12
end if

end mouseUp